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PREFACE 


This  supplement  to  Volume  II  provides  documentation  and  program 
guides  for  a  cyclic  drill  and  blast  control  program  and  a  stochastic 
boring  machine  failure  model. 
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1  CYCLIC  PROGRAM  DOCUMENTATION 

1.1  CYCLIC  CONTROL  PROGRAM:  CONTRi 

The  simulation  of  tunneling  using  the  cyclic  processes,  drill  and 
blast  technique  for  rock  fragmentation,  and  machine  loaders  and  shovels 
for  short-haul  materials  handling  uses  the  following  routines: 


Element  and 

General  Process 

Activity 

Subroutine  Entry 
Initialization /Normal 

Rock  fragmentation, 
drill  and  blast 

Move  drill  jumbo  in 

Set  charge 

MOVE IN /INMOVE 

HOLBRN/BRNHOL 

Move  drill  jumbo  out 
and  blast 

MOVEUT/OUTMOV 

Materials  handling, 
loaders  and  shovels 
and  rail  system 

Moving  shovels  in 

Mucking 

Moving  shovels  out 

mukin/inmuk 

MUKLOD/LODMUK 

MUKOUT /OUTMUK 

Train  logistics 

RAILHL/RAILTR 

Track  laying 

RAILEX/RAILXT 

Discharge 

RAILDS/RAILDS 

Train  maintenance 

RAILMT/RAILMT 

Ground  support 

Rock  bolts,  steel  sets, 
shotcrete  or  combina¬ 
tions 

GRNSUP/GROUN 

Maintenance 

GSMAIN/GSMNT 

Environmental 

control 

Ventilation,  cooling, 
and  water  removal 

ENVIR/ENVIRC 

The  control  program  which  has  been  created  for  the  simulation  is 
very  similar  to  the  one  created  for  the  Strawberry  Aqueduct  Layout  Tunnel 
described  in  Volume  II  of  Appendix  IV  of  the  final  report.  The  subroutines 
associated  with  the  control  program  for  the  Layout  Tunnel  for  reading  in 
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input  parameters  (INPUT),  and  generating  output  reports  (OUTPUT,  MAXADV, 
REPORR,  REPORC)  are  used  for  this  simulation,  the  only  change  being  sub¬ 
stitution  of  drill  and  blast  variables  (input  and  status)  for  boring 
machine  variables,  and  machine  loader  and  shovel  variables  (input  and 
status)  for  integrated  conveyor  loader  variables.  The  description  of  all 
activity  routines  used  is  in  Appendix  IV  of  Volume  II. 

The  control  program  itself  (C0NTR1)  has  the  same  tasks  as  the  lay¬ 
out  tunnel  simulation  control  program  had: 

a.  Reading  in  and  computing  input  parameters  for  the  processes 
being  modeled 

b.  Reading  in  new  tunnel  geology  parameters  as  they  are  required 

c.  Cycling  through  all  the  activity  subroutines  in  each  time 
s  tep 

d.  Updating  the  face  position  and  time  at  the  end  of  each  time 
step 

e.  Determining  the  status  of  the  rock  fragmentation  process  for 
the  next  time  step  by  checking  the  status  of  other  processes 
and  queuing  trains  at  the  loading  area  if  it  is  required 

f.  Generating  output  reports  when  they  are  required 

g.  Making  error  checks  and  ending  the  simulation  if  an  error 
has  occurred 

h.  Ending  the  simulation  if  user  input  time  or  distance  maximums 

have  been  reached,  or  if  the  tunnel  geology  file  end  has  been 
reached  ' 

Two  other  computations  have  been  put  into  this  control  program 
which  were  contained  in  the  activity  subroutines  in  the  Layout  Tunnel 
simulation. 


aa.  Computing  utilisation  and  availability  for  each  element 
(rock  fragmentation,  materials  handling,  ground  support, 
and  environmental  control) 

bb.  Computing  labor  time  (used  to  compute  labor  costs  in  the 
report  subroutine  REPOUC)  for  each  element 

These  two  calculations  were  put  into  the  control  program  for  greater  user 
flexibility.  Changing  the  way  these  are  computed  is  more  easily  done 
when  the  statements  are  in  one  routine  instead  of  spread  throughout  the 
activity  subroutines.  The  control  program  tasks  will  be  discussed  next, 
followed  by  a  description  of  new  variables  added  to  the  model,  and  finally 
a  description  of  changes  to  the  activity  subroutines  when  incorporating 
will  be  given. 

The  control  program  first  handles  input  by  calling  INPUT  which 
reads  in  and  prints  out  parameter  cards,  initializes  the  geology  file  by 
reading  in  the  first  record,  and  computes  some  initial  values  for  the 
run.  Further  initialization  is  done  by  calling  each  activity  subroutine 
which  has  an  initialization  entry  point  at  that  entry.  The  subroutines 
then  set  default  values  for  input  parameters  which  were  not  read  in  for 
this  run. 

After  calling  each  subroutine,  all  input  parameters  are  again  printed 
out  by  calling  INPUT2.  These  will  reflect  any  default  values  applied  by 
the  subroutines.  The  next  initialization  step  is  setting  all  future 
status  variables  (COMNEW)  equal  to  the  corresponding  present  status  (COMOLD). 
This  is  done  to  initialize  all  processes  for  the  start  of  the  run.  The 
final  initialization  step  is  the  printing  out  of  the  initial  status  of 
all  elements  by  calling  OUTPUT, 

The  control  program  then  begins  stepping  through  the  time  cycles 
(DT).  In  each  time  step  it  first  checks  the  face  position  versus  the 
geology  file  to  determine  if  a  new  geology  has  been  reached.  If  it  has, 
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the  next  geology  record  is  read  in.  Each  tunneling  routine  is  then 
called  in  succession  at  its  normal  entry  point.  The  order  in  which  the 
elements  are  processed  is  not  significant;  however,  the  activity  routines 
for  each  element  should  be  called  in  the  order  shown  in  the  listing.  For 
example,  the  rail  subroutines  may  be  called  after  the  machine  loader  and 
shovel  routines,  but  when  the  rail  routines  are  called,  the  order  should 
be  RAILTR,  RAILDS,  RAILKX,  RAILMT.  At  each  call  to  a  subroutine  the  sub¬ 
routine  checks  the  status  of  the  activity  it  represents  by  looking  at  its 
current  status  variables,  acts  upon  this  information,  and  finally  sets 
its  status  for  the  next  time  cycle  by  setting  its  future  status  variables. 
For  example,  when  MUKLOD  is  called  it  first  checks  LOAUR,  its  current 
status  variable.  If  it  is  equal  to  1,  then  mucking  is  not  being  done. 

No  action  is  required  of  the  subroutine  since  its  future  status  variable 
i.LOADR  is  already  1  for  the  next  time  cycle,  so  a  return  to  the  main 
program  is  executed.  However,  if  upon  entry,  LOADR  =  0,  mucking  is  being 
done,  and  the  subroutine  computes  the  amount  of  muck  that  is  loaded  in 
one  time  step  (DT).  It  then  checks  to  determine  if  all  muck  will  have 
been  loaded  after  DT.  If  loading  will  be  completed,  the  future  status 
variable  LLOADR  is  set  =  1  indicating  to  the  next  time  step  loading  is 
finished.  If  there  is  still  muck  to  be  loaded  (DV  ^  0),  then  LLOADR  is 
set  to  0  indicating  loading  should  continue  in  the  next  cycle.  In  either 
case  a  return  to  the  main  program  is  executed  after  setting  LLOADR. 

In  calling  the  tunneling  subroutines,  two  changes  have  been  made 
because  of  the  cyclic  nature  of  the  drill  and  blast  and  mucking  processes. 
The  first  is  that  the  start  of  the  mucking  cycle  after  the  blast  and  the 
start  of  the  blasting  cycle  after  mucking  are  handled  in  the  control 
program.  This  allows  the  user  to  overlap  these  processes  if  he  desires 
or  alternate  them.  In  the  sample  control  program  the  processes  are  not 
overlapped  but  run  in  alteration.  To  allow  the  control  program  to  start 
the  processes,  two  new  parameters  which  signal  the  operation  of  each 
activity  in  the  drill  and  blast  process  and  the  mucking  process,  IACT  and 
JACT,  have  been  added.  These  variables  have  been  placed  in  common  areas 
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and  are  available  to  the  subroutines  and  the  control  program.  They  have, 
the  following  possible  values: 

IACT  -  1  -  drill  jumbo  being  moved  to  face 

2  -  drilling 

3  -  setting  the  charge 

4  -  moving  the  drill  jumbo  out,  blasting,  and  smoke  time 

5  -  finished  drill  and  blast  cycle 

JACT  -  1  -  moving  muckers  and  shovels  to  the  face 

2  -  mucking 

3  -  moving  muckers  and  shovels  away  from  face 

4  -  mucking  cycle  finished 

The  control  program  starts  a  process  by  setting  TACT  or  JACT  and 
the  status  variables  of  the  lead  activity.  For  example,  the  drill  and 
blast  process  is  started  by  setting  LJUMIN  -  0,  IACT  =  1.  The  activity 
of  moving  the  drill  jumbo  to  the  face  is  to  begin.  The  subroutine  MOVEIN 
representing  this  activity  will  begin  the  move  when  it  is  called.  The 
activity  subroutines  themselves  handle  the  cycling  of  each  process  once 
it  has  been  started  by  the  control  program. 

The  second  change  due  to  the  cyclic  nature  of  rock  fragmentation 
and  short  haul  materials  handling  is  not  calling  drill  and  blast  subrou¬ 
tines  or  mucking  routines  when  these  processes  are  to  stop  for  some  reason 
other  than  their  activities  being  completed.  In  the  sample  control  pro¬ 
gram  they  are  not  called  when  ground  support  is  further  from  the  face  than 
the  maximum  allowed  unsupported  length  (IEXCA  =  1) .  Not  calling  them 
allows  whatever  process  that  is  occurring  to  stop  immediately  and  then  be 
resumed  in  the  same  place  after  ground  support  has  caught  up. 

After  all  the  subroutines  which  are  going  to  be  called  in  the  time 
step  have  been  called,  the  control  program  cumulates  operating  time,  down 
time,  and  labor  time  for  each  of  the  elements.  As  mentioned  previously, 
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these  computations  (aa,  bb)  were  previously  done  in  the  activity  subrou¬ 
tines.  Both  of  these  computations  are  done  on  the  basis  of  the  status 
flags  in  the  two  common  areas,  future  (NEWCOM)  and  present  (OLDCOM) . 

Also  used  for  the  computations  is  a  special  status  variable,  MBLAST,  which, 
as  in  the  sample  control  program  for  the  boring  machine,  has  been  added 
to  keep  track  of  all  activities  effect  on  the  drill  and  blast  process. 

It  takes  the  folJ owing  values: 


MBLAST  =  0  -  rock  fragmentation 

1  -  rock  fragmentation 

2  -  rock  fragmentation 

3  -  rock  fragmentation 

4  -  rock  fragmentation 

loading 

5  -  rock  fragmentation 

6  -  .  ock  fragmentation 

behind 


is  in  progress 

idle  due  to  rail  being  extended 
idle  due  to  switch  being  moved 
idle,  switch  being  added 
idle,  no  train  available  for 

idle,  loading  muck 

idle,  ground  support  has  fallen 


7  -  rock  fragmentation  is  down,  drill  equipment  in  main¬ 
tenance 

This  variable  and  the  current  status  variables  in  common  block  OLDCOM  are 
used  to  determine  the  utilization  time  and  the  labor  time  in  the  current 
time  step.  This  time  is  then  added  to  the  already  cumulated  operating 
times  and  subroutines.  In  the  sample  control  program  tMa  is  done  as 
shown  in  Tables  1  and  2.  (See  Table  3  for  definition  of  status  variables.) 


The  control  program  now  prepares  for  the  next  time  stepby  incre¬ 
menting  the  face  position  (X)  by  DX,  the  advance  during  the  current  time 
cycle,  incrementing  time  (T)  by  DT,  and  setting  current  status  variables 
(COMOLD)  equal  to  future  status  variables  (COMNEW) ,  thus  indicating  the 
status  of  each  activity  at  the  beginning  of  the  new  time  cycle.  Using 
the  new  current  status  variables  (30M0LD),  the  status  of  rock  fragmentation 


6 


TABLE  1 


Element 

Cumulative 
Operating  Time 
Variable 

Cumulative 

Down  Time 
Variable 

Incremented  bv  DT  if 

Rock  fragmentation 

RDUTIM 

MBLAST  =  0 

RDDTIM 

MBLAST  =  7 

Materials  handling 

UMHTIM 

DMHT1M 

NUMLD  i  0  and  MBLAST 

NUMLD  i  0 

Ground  support 

GSUTIM 

MGS (IAS)  =  MGS (1ST)  = 

GSDTIM 

MGS  (IAS)  ---  1  or 

MGS (1ST)  =  1 

Environmental 

control 

ECUTIM 

ECDTIM 

Always 

Never 

Element 

TABLE  2 

Cumulative  Labor 

Time  Variable 

Incremented  in  Time  Cycle 
by  DT  if: 

Rock  fragmentation 

RDTIME 

Always 

Materials  handling 

Short  haul 

HTIME (2) 

Always 

Long  haul 

HTIME(l) 

Always 

Ground  support 

GSTIME 

Always 

Environmental 

control 

ECTIME 

Always 
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TABLE  3 

DEFINITION  OF  FLAGS  SET  IN  MODEL 


Subro u Line  Flag 

MOVE IN ,  HOLBRN ,  MB LAST 

MOVOUT,  SETCHG 


MOVE IN 

HOLBRN 

HOLBRN 

SETCHG 

MOVOUT 

MUKIN 


JUMIN 

NDRILL 

NDRILB 

NCHRG 

JUMOUT 

MKIN 


Options 

3  0  -  reck  fragmentation  In  progress 

3  1  ”  rock  fragmentation  idle,  rails 
are  being  extended 

=  2  “  rock  fragmentation  idle,  switch 

being  moved 

=  3  -  rock  fragmentation  idle,  switch 
being  added 

=  4  -  rock  fragmentation  idle,  no  train 
available  for  loading 

=  5  -  rock  fragmentation  idle,  muck 
being  loaded 

=  6  -  rock  fragmentation  idle,  ground 
support  has  fallen  behind 

=  7  -  rock  fragmentation  doim ,  drills 
in  maintenance 

=  0  -  drill  jumbo  being  moved  to  face 

=  1  -  drill  jumbo  move  completed 

=  0  -  drilling  in  progress 

=  1  -  drilling  completed 

=  0  -  burn  cutting  in  progress 

=  1  -  bum  cutting  finished 

~  0  -  setting  charge  in  progress 

■  1  ~  setting  charge  completed 

=  0  -  drill  jumbo  being  moved  from  face 

“  1  -  drill  jumbo  move  completed 

■  0  "  muckers  being  moved  to  face 
1  -  muckers  move  completed 
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MUKLOD 

MUKOUT 

RATLHL 

RAILDS 

CRN SUP 


GSMAIN 

RAILF.X 

RAILEX 

RAILHL,  RAILDS, 
RAILEX 


LOADR 


MUKOT 


LSTOP 


IFIID 


IEXCA 


=  0  -  loading  muck  in  progress 
=  1  -  loading  muck  completed 

=  0  -  muckers  being  moved  from  face 
=  1  -  muckers  move  completed 

=  0  -  normal  operations — continue  system 
=  1  -  shut  down  system- -external  reasons 
=>  2  -  bring  up  system — external  reasons 

=  0  -  normal  operation 
=  1  -  discharge  area  filled 

=  0  -  normal  operation 

=  1  -  ground  support  construction  rate 
exceeded  by  rock  fragmentation 


MGS (I) 

I  -  1,  5 


=  0  -  support  type  I  up 
=  1  -  support  type  I  in  maintenance 


NSWCH  =  0  -  normal  operation 

»  1  -  new  switch  being  added 
=  2  -  switch  being  moved 

NBYBY  -  0  -  normal  operation 

=  1  -  rail  extension  rate  exceeded 
by  rock  fragmentation 


LTSTAT (1 ,  1)  =  0  "  train  I  stopped,  empty 
1  ~  ^  =  1  -  train  I  stopped,  full 

=  2  -  train  I  accelerating,  empty 

=  3  -  train  I  accelerating,  full 

“A  -  train  I  going  full  speed,  empty 

«  5  -  train  I  going  full  speed,  full 

=  6  -  train  I  decelerating,  empty 

=  7  -  train  I  decelerating,  full 

*»  8  -  in  switch,  empty 
b  9  -  in  switch,  full 
»  10-  in  discharge  area 
*»  11-  in  maintenance  area 
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LKSTOP(I) 
I  -  1,  25 


LLVHCL 


“  0  -  train  I  not  stopped 

■  1  -  train  I  at  face,  being  loaded 

■  2  -  train  I  in  switch,  train  ahead 

■  3  -  train  I  in  switch,  train 

approaching 

■  4  -  train  I  stopped,  external  reasons 

■  5  -  train  I  in  switch,  waiting  to 

entei  discharge  area 

■  6  -  train  I  in  switch,  waiting  to 

enter  load  queue 

■  101  train  I  in  load  queue,  1st  in  line 

■  102  train  I  in  load  queue,  2nd  in  line 

■  ION  train  I  in  load  queue,  .Nth  in  line 

■  0  -  no  train  in  loading  area 

■  n  -  train  n  in  loading  area 
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(MBLAST)  is  determined  for  the  new  time  cycle.  This  is  done  in  the  con¬ 
trol  program  because  rock  fragmentation  is  the  lead-off,  or  pivotal, 
element.  The  other  elements,  materials  handling,  ground  support,  and 
environmental  control,  will  automatically  follow  the  rock  fragmentation, 
generally  using  feet  of  advance  (DX)  or  volume  of  muck  to  he  removed  (DV), 
with  no  interference  necessary  from  the  control  program.  However,  the 
rock  fragmentation  process  must  be  told  what  other  processes  are  going 
on.  This  could  have  been  included  in  the  rock  fragmentation  subroutines, 
but;  would  have  made  the  modeling  rigid.  It  was  assumed  that  the  user 
would  prefer  the  flexibility  of  being  able  to  vary  the  interference  of 
say  ground  support  with  rock  fragmentation,  making  runs  in  which  these 
processes  go  on  simultaneously  and  other  runs  in  which  ground  support 
falling  behind  (further  from  the  face  than  the  maximum  unsupported  length) 
idles  the  rock  fragmentation.  This  can  easily  be  done  using  the  status 
variable  IEXCA  which  =  1  when  ground  support  falls  behind.  The  user  then 
inserts  one  statement  In  the  control  program  bypassing  the  rock  fragmen¬ 
tation  ub routines,  thus  making  rock  fragmentation  idle  for  the  time  step. 
For  other  processes,  similar  statements  will  cause  varying  relationships 
between  rock  fragmentation  and  materials  handling  or  environmental  con¬ 
trol;:  these  relationships  in  turn  affect  the  progress  of  the  tunnel,  the 
utilization  reports,  and  costs. 

Besides  setting  the  status  of  rock  fragmentation,  status  variables 
for  the  materials  handling  system  are  used  to  keep  track  of  the  trains 
queuing  at  the  loading  area  and  queue  them  when  a  train  is  released  to 
the  discharge  area.  The  queuing  of  the  trains  is  done  in  the  control 
program  to  preserve  the  independence  of  the  loader  subroutines  (MUKIN, 
MUKLOD,  MUKOUT)  and  the  rail  subroutines  (RAILHL ,  RAILEX,  RAILDS ,  RAILMT). 

A  check  is  first  made  to  determine  whether  a  train  is  needed  (MBLAST  =  4). 
Another  check  is  made  to  determine  if  track  is  being  extended  (NBYBY  =  1) 
or  a  switch  is  being  added  or  moved  (NSWCH  =  1  or  2).  If  a  train  is  needed 
and  neither  track  nor  switches  are  being  moved  or  added,  a  final  check 
determines  whether  a  train  is  already  loading.  If  r.o  train  is  loading, 
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the  train  queue  is  changed  to  attempt  to  provide  a  train  for  loading.  If 
any  oi  the  above  condi, tions  was  not  met,  then  no  queuing  is  done. 


Finally,  the  control  program 
generated  and  generates  them  if  it 
user  time  (TMAX)  or  distance  (XMAX) 
have  been  detected.  If  the  run  in 
step  by  returning  to  the  statements 
for  a  change  in  tunnel  geology. 


determines  whether  reports  should  be 
is  time.  It  ends  the  run  then  if  the 
limits  have  been  reached  or  errors 
not  finished,  it  starts  the  next  time 
in  the  control  program  which  check 


1.2  NEW  VARIABLES:  DRILL  AND  BLAST  AND  SHOVEL  ROUTINES 

As  was  stated  in  Volume  II,  plant  equipment  and  labor  costs  were 
not  included  in  the  routines  not  in  the  model  simulating  the  Layout 
funnel.  In  creating  the  control  program  for  the  cyclic  processes  (drill 
and  bias  t  and  shovels),  these  costs  were  added  in  the  manner  suggested  in 
volume  II,  Appendix  IV  with  some  slight  differences. 

Labor  costing  for  this  model  is  all  done  in  the  control  program 
instead  of  in  individual  roatines  as  in  the  boring  machine  model.  The 
variables  used  to  input  the  labor  costs  are  the  same  variables  that  were 
used  in  the  other  model: 

BOMLN(I) ,  I  =  1,  10  -  number  of  men  required  for  drill  and  blast 

in  each  of  ten  possible  labor  categories 

BOCST(I),  1=1,  10  -  hourly  cost  for  one  man  in  each  of  above 

cate  go  i' I  es 

RAMLN(I)  ,  I  =  1,  10  -  nur  er  of  .er.  required  for  rail  system  in 

each  ten  possible  labor  categories 

RACST(I),  I  =  1,  10  -  hourly  cost  for  one  man  in  each  of  above 

categories 

COMEN (I)  ,  I  =  1,  10  -  number  of  men  required  for  muck  loaders  and 

shovels  in  each  of  ten  possible  labor  categories 
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COCST(I)  ,  1  =  1,  10 


hourly  cost  for  one  m  iii  each  of  above 
categories 


GSMEN(I),  1  =  1,  10 


number  of  men  required  for  ground  support  in 
each  of  ten  possible  labor  categories 


GSCST(I),  1=1,  10  -  hourly  cost  for  one  man  in  each  of  above 

categories 

VLMEN(I),  I  =  1,  10  -  number  of  men  required  for  environmental 

control  in  each  of  ten  possible  labor  categories 


VCCST(I),  I  =  1,  10 


hourly  cost  for  one  man  in  each  of  above 
categories 


However,  instead  of  equivalencing  these  variables  to  other  variables 
for  actual  computation  of  costs,  no  equivalencing  was  done  and  these  in¬ 
put  variables  (BOMEN,  etc.)  are  used  for  computation  in  subroutines 
REP0RC.  Labor  costs  are  input  under  the  NAMELIST  of  the  process  they  are 
associated  with  just  as  before,  so  BOMEN,  BOOST  are  input  under  NAMELIST/ 
BLAST/,  COMEN,  COCST  under  NAMELIST/SHOVL/ ,  etc. 


The  plant  and  equipment  costs  which  were  added  for  the  drill  and 
blast  process  and  the  machine  loader  and  shovel  will  be  cumulated  in  the 
variables  already  in  the  model  RDPLAN  for  drill  and  blast,  and  HPLANT  for 
loaders  and  shovels.  The  input  costs  are  as  follows: 

Input  in  NAMELIST/BLAST/ 

EBURN  =  cost  per  foot  of  burn  drills 

EDRIFT  =  cost  per  foot  of  drifter  drills 

EJUMB  =  cost  per  foot  of  drill  jumbo 

EJIB  =  cost  per  foot  of  thrf  e  jibs 

F.WHAT  =  cost  per  foot  of  three  drill  positioners 

Input  in  NAMELIST/SHOVL/ 

ESHOVL  =  cost  per  foot  of  mucker 
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1.3  CHANGES  IN  ACTIVITY  SUBROUTINES 

The  basic  descriptions  for  these  routines  are  in  Appendix  IV, 

Volume  II  and  the  changes  below  should  be  studied  with  those  descriptions. 

1.3.1  The  Drill  and  Blast  Routines 

Each  of  these  routines  (MO VEIN ,  MOVOUT ,  HOLBRN  and  SETCHG)  has  been 
added  to  so  that  the  cycling  of  the  drill  and  blast  process  (moving  in, 
drilling,  setting  the  charge,  moving  out,  and  blasting)  is  now  done  by 
the  subroutines  themselves  instead  of  by  the  control  program.  For  this 
change  1CYCLE  has  been  put  into  the  common  block  BLAST  and  a  new  variable 
IACT  (described  in  Sec.  5.1)  has  also  been  added  to  the  common  area. 

Each  activity  initializes  the  next  activity  in  the  cycle  by  setting  ICYCLE 
to  1,  the  activities  status  variable(s)  =  0,  and  by  setting  IACT  for  the 
next  activity.  For  example,  w'hen  the  subroutine  which  simulates  moving 
in  the  drill  jumbo,  MOVEIN,  finds  that  the  moving  is  complete,  it  sets 
ICYCLE  =  1  for  initializing  the  drilling  activity,  sets  IACT  =  2,  LNDRILB 
=  0  and  LNDRII.L  =  0  to  indicate  that  drilling  is  in  progress.  These 
settings  will  cause  the  drilling  subroutine  HOLBRN  to  begin  drilling  in 
the  next  time  step.  As  a  result  of  ICYCLE  being  put  in  a  common  area,  it 
is  no  longer  a  formal  parameter  appearing  in  the  subroutine  call  statement 
or  name. 


Another  change  made  to  each  of  the  activity  routines  is  the  addition 
of  a  separate  initialization  entry  to  be  called  at  the  start  of  each  run 
only.  The  initialization  entry  and  normal  entry  for  each  of  the  routines 
are  as  follows : 


Activity 

Moving  drill  jumbo  in 

Drilling  holes 

Setting  the  charge 

Moving  drill  jumbo  out 
and  blasting 


Initialization  Entry 
MOVEIN 
HOLBRN 
SETCHG 
MOVOUT 


Normal  Entry 

i 

INMOVE 

BRNHOL 

CHGSET 

OUTMOV 
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A  final  change  for  the  drill  and  blast  routines  has  been  to  add  a  plant 
and  equipment  cost  cumulator  in  MOVOUT.  The  new  variables  involved  in 
costing  plant  and  equipment  were  given  in  the  previous  Sec.  5.2.  The 
cost  is  accumulated  in  the  variable  Pd)  PL  AM . 

1.3.2  The  Machine  Loader  and  Shovel  Routines 

Each  of  these  routines,  MUKIN,  MUKLOD,  and  MUKOUT ,  has  been  added 
to  so  that  the  cycling  of  the  mucking  process  (moving  muckers  to  the  face, 
loading  muck,  and  moving  muckers  out)  is  now  done  by  the  subroutines 
themselves,  once  the  cycle  is  started  by  the  control  program.  For  this 
change  a  new  variable,  JACT,  (see  previous  Sec.  5.1  for  description)  has 
been  added  to  the  common  area  CONVEY.  Each  activity  initializes  the  next 
one  in  the  cycle  by  setting  JACT  equal  to  the  value  signaling  the  next 
activity's  start,  and  by  setting  the  next  activities  status  variables  =  0. 

Also,  cumulation  of  plant  and  equipment  costs  have  been  added  to 
subroutine  MUKIN,  the  costs  being  accumulated  in  the  variable  HPLANT. 
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JLI^ijASTIC  MODEL  OF  BORING  MACHI ME  FAILURE 

The  RE  I  AIR  subroutine  has  beeii  replaced  by  three  subroutines: 
REPAIR,  OPDSTR,  and  OPROD.  A  new  common  block  COMMOW/OPSTAT/  has  been 
added  to  the  control  program  and  to  the  three  new  subroutines.  It  con¬ 
tains  the  following  variables: 

I WORE  =  0  if  the  Wei bull  function  is  to  be  used  to  determine 
hours  between  maintenance  for  the  boring  machine 

=  1  if  n  distribution  input  by  the  user  is  to  be  used 

JWORP  =  0  if  the  Weibull  function  is  to  be  used  to  determine 
how  long  each  maintenance  period  will  be  for  the 
boring  machine 

=  1  if  a  distribution  input  by  the  user  is  to  be  used 

OWFIBk'  °WEIBV*  =  lnpUt  variables  fcr  the  Weibull  function,  F,  defining 

time  between  maintenance  periods 


F  =  1  -  exp 


(  x  -  OWE! BE  \°WEIBK 
\  OWEIBV  -  OWEIBE / 


for  x  >  OWEIBE 


F  =  0 

for  x  <  OWEIBE,  where  x  =  elapsed  operating  hours 
since  last  maintenance  period 

RWEIBE,  RWEIBV,  =  input  variables  for  the  Weibull  function,  F,  defining 
RWEIBK  ° 

hours  in  maintenance 
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F  *=  1  -  exp 


R WEI BE 


RWEIBV  -  Ri 


iL__. 

JEIBE/ 


\RWEIBK 


for  x  >  RWEIBE 


F  =  0 


0CP(1),  0CPT(1), 
I  *  1,100 


RCP(I),  RCPT(I), 
I  =  1,100 


for  x  <  RWEIBE,  where  x  =  elapsed  maintenance  hours 

«  one  hundred  possible  discrete  pairs  of  numbers  (input 
by  the  user)  representing  a  piece-wise  linear  dis¬ 
tribution  function  to  determine  hours  between  boring 
machine  maintenance  periods 

OCP(I)  =  value  between  0  and  1  giving  the  prob¬ 
ability  of  the  boring  machine  going 
into  maintenance 

OCPT(I)  =  elapsed  operating  time  at  which  the 
above  probability  is  valid 

=  one  hundred  possible  discrete  pairs  of  numbers  (input 
by  the  user)  representing  a  piece-wise  linear  dis¬ 
tribution  function  to  determine  the  length  in  hours 
of  each  maintenance  period  for  the  boring  machine 

RCP(I)  =  value  between  0  and  1  giving  the  prob¬ 
ability  that  the  boring  machine  main¬ 
tenance  is  finished 

RCPT(I)  =  elapsed  maintenance  hours  at  which 
the  above  probability  is  valid 


Note  for  the  arrays  RCP(IOO)  and  OCP(IOO)  that 


RCP(l)  =  0CP(1)  =  0 
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and 


RCP(N)  -  OCP(N)  =  1 

where  N  is  Che  number  of  pairs  being  used  in  the  distribution  (N  1  100). 

The  variables  described  above  should  be  input  to  the  program  within 
NAMELIST/ BORE/. 
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